home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Rexx / TSet.rexx < prev    next >
OS/2 REXX Batch file  |  1994-02-24  |  4KB  |  135 lines
  1. /* Terminal settings script */
  2.  
  3. CR = D2C(13)
  4. LF = D2C(10)
  5. CRLF = CR||LF
  6. ESC = D2C(27)
  7. WHITE = ESC||"[0m"
  8. RED = ESC||"[31m"
  9. GREEN = ESC||"[32m"
  10. YELLOW = ESC||"[33m"
  11. BLUE = ESC||"[34m"
  12. PURPLE = ESC||"[35m"
  13. CYAN = ESC||"[36m"
  14. CLEAR = D2C(12)
  15. ln = arg(1)
  16. LineName = Con_LineActive(ln)
  17. if LineName = "" then exit 10
  18. address value LineName
  19. do forever
  20.     SetStatus "Terminal Settings:"
  21.     if GetStripAll(ln) = 1 then des = "ON"
  22.     else des = "OFF"
  23.     SendModem CRLF||"(1)       "||CYAN||"Strip All: "||WHITE||des||CRLF
  24.     if GetStripCols(ln) = 1 then des = "ON"
  25.     else des = "OFF"
  26.     SendModem "(2)     "||CYAN||"Strip Color: "||WHITE||des||CRLF
  27.     if GetSimpleTerm(ln) = 1 then des = "ON"
  28.     else des = "OFF"
  29.     SendModem "(3) "||CYAN||"Simple Terminal: "||WHITE||des||CRLF
  30.     SendModem "(4) "||CYAN||"  Character set: "||WHITE||GetUserCharSet(ln)||CRLF
  31.     SendModem "(5)  "||CYAN||"Terminal lines: "||WHITE||GetTerminalLines(ln)||CRLF
  32.     select
  33.         when Upper(GetUserExtension(ln)) = ".TXT" then des = "Normal"
  34.         when Upper(GetUserExtension(ln)) = ".ETXT" then des = "Short"
  35.         otherwise des = "INVALID"
  36.         end
  37.     SendModem "(6)       "||CYAN||"Menu type: "||WHITE||des||CRLF
  38.     if GetUserMisc(ln, "MSGCHECK") = 1 then des = "ON"
  39.     else des = "OFF"
  40.     SendModem "(7)   "||CYAN||"Message check: "||WHITE||des||CRLF
  41.     if GetUserMisc(ln, "FILECHECK") = 1 then des = "ON"
  42.     else des = "OFF"
  43.     SendModem "(8)      "||CYAN||"File check: "||WHITE||des||CRLF
  44.     SendModem "(9)        "||CYAN||"Protocol: "||WHITE||GetUserProtocol(ln)||CRLF
  45.     SendModem CRLF||"(Q) "||CYAN||"Quit"||WHITE||CRLF||CRLF
  46.     cmdstr = AskInput(ln, "("||GetTimeLeft(ln)||") "||CYAN||"Terminal Settings: "||WHITE, "", 255)
  47.     sendmodem CRLF
  48.     do while (left(cmdstr, 1) = " ") & (length(cmdstr) > 0)
  49.         cmdstr = right(cmdstr, length(cmdstr) - 1)
  50.         end
  51.     parse var cmdstr cmdid cmdstr
  52.     cmdid = upper(cmdid)
  53.     do while (left(cmdstr, 1) = " ") & (length(cmdstr) > 0)
  54.         cmdstr = right(cmdstr, length(cmdstr) - 1)
  55.         end
  56.     select
  57.         when cmdid = "1" then do
  58.             if GetStripAll(ln) = 1 then SetStripAll "0"
  59.             else SetStripAll "1"
  60.             end
  61.         when cmdid = "2" then do
  62.             if GetStripCols(ln) = 1 then SetStripCols "0"
  63.             else SetStripCols "1"
  64.             end
  65.         when cmdid = "3" then do
  66.             if GetSimpleTerm(ln) = 1 then SetSimpleTerm "0"
  67.             else SetSimpleTerm "1"
  68.             end
  69.         when cmdid = "4" then do
  70.             CSet = ""
  71.             do while CSet = ""
  72.                 if Length(cmdstr) > 0 then do
  73.                     CSet = cmdstr
  74.                     cmdstr = ""
  75.                     end
  76.                 else do
  77.                     SendModem CRLF
  78.                     SendASCII "Text/CharSet.txt"
  79.                     CSet = AskInput(ln, "Select: ", "", 2, "NUMERIC")
  80.                     end
  81.                 select
  82.                     when CSet = "0" then CSet = "ISO"
  83.                     when CSet = "1" then CSet = "IBM"
  84.                     when CSet = "2" then CSet = "SF7"
  85.                     when CSet = "3" then CSet = "ISOSF7"
  86.                     when CSet = "4" then CSet = "IBMSF7"
  87.                     otherwise CSet = ""
  88.                     end
  89.                 end
  90.             SetUserCharSet CSet
  91.             end
  92.         when cmdid = "5" then do
  93.             SendModem CRLF
  94.             if Length(CmdStr) > 0 then SetTerminalLines GetArgs()
  95.             else SetTerminalLines AskInput(ln, "Terminal lines: ", GetTerminalLines(ln), 3, "NUMERIC")
  96.             end
  97.         when cmdid = "6" then do
  98.             if GetUserExtension(ln) ~= ".txt" then MenuType = ".txt"
  99.             else MenuType = ".etxt"
  100.             SetUserExtension MenuType
  101.             Ext = MenuType
  102.             end
  103.         when cmdid = "7" then do
  104.             if GetUserMisc(ln, "MSGCHECK") = 1 then call SetUserMisc ln, "MSGCHECK", 0
  105.             else call SetUserMisc ln, "MSGCHECK", 1
  106.             end
  107.         when cmdid = "8" then do
  108.             if GetUserMisc(ln, "FILECHECK") = 1 then call SetUserMisc ln, "MSGCHECK", 0
  109.             else call SetUserMisc ln, "FILECHECK", 1
  110.             end
  111.         when cmdid = "9" then do
  112.             Protocol = ""
  113.             do while Protocol = ""
  114.                 if Length(cmdstr) > 0 then do
  115.                     Protocol = cmdstr
  116.                     cmdstr = ""
  117.                     end
  118.                 else do
  119.                     SendModem CRLF
  120.                     SendASCII "Text/Protocol.Txt"
  121.                     Protocol = Upper(AskInput(ln, "Select: ", "", 2))
  122.                     end
  123.                 select
  124.                     when Protocol = "Z" then Protocol = "ZModem"
  125.                     when Protocol = "8" then Protocol = "ZModem8k"
  126.                     otherwise Protocol = ""
  127.                     end
  128.                 end
  129.             SetUserProtocol Protocol
  130.             end
  131.         when cmdid = "Q" then exit 0
  132.         otherwise
  133.         end
  134.     end
  135.